if whichItem is in "Back,Recent,First,Prev,Next,Last,Find" then
-- Yeah, it's a pain, but it helps keep the stack from arriving
-- at your Mac missing cards and with unathorized additions.
if short name of this bg is "Carmina" then
answer "Please use just the arrow keys and the mouse to " &"turn the pages of the book."
cleanScreen
else
if short name of this bg is "Main Background" then
answer "Please use just the arrow keys and the mouse to " &"flip through the notes."
cleanScreen
end if
end if
exit doMenu
else
if first word of whichItem is in "New,Delete,Cut,Paste" then
if short name of this cd is "AutoMusicon" then
if last word of whichItem is "Text" then
pass doMenu
exit doMenu
end if
else
answer "This stack shouldn't be modified."
cleanScreen
exit domenu
end if
else
pass doMenu
end if
end if
exit doMenu
else
if the freesize of this stack > 2000 and the diskspace > the size of this stack then
Answer "Compact this stack before quitting?" with "Compact" or "Next time" or "Cancel"
If it is "Compact" then
if cantmodify of this stack is false then
set loc of Message Box to 17,110
Put " Compacting this stack before quitting"
doMenu "Compact Stack"
else
show menuBar
answer "The Cantmodify of this stack is set to true," &" so compacting is impossible at this time. Next session?" with "OK"
end if
end if
if it is "Cancel" then
exit doMenu
end if
end if
end if
pass doMenu
end doMenu
on openStack
global stacks,JBTempo,JBInst
cleanScreen
if the version < 1.2 then
Answer "Hypercard version 1.2, or later, is available at your " &"Apple dealer. Many functions of this stack require the new " &"features. Continue?" with "Risk It" or "Go Home"
if it is "Go Home" then
visual dissolve to grey
visual dissolve to gray
visual dissolve
go home
exit openStack
end if
end if
if stacks is empty then
CheckGlobals
end if
About " ","If Monks Had Macs..."
put empty into JBTempo
put empty into JBInst
set userLevel to 5
set textArrows to false
end openStack
on CheckGlobals
global GULevel,GPKeys,GTArrows
global GVPatn,GBTyping,GVMsg,GVTool
getHomeInfo
put the userLevel into GULevel
put the powerKeys Into GPKeys
put the textArrows into GTArrows
put the blindTyping into GBTyping
put the visible of the msg into GVMsg
put the visible of tool window into GVTool
put the visible of pattern window into GVPatn
end CheckGlobals
on closeStack
global GULevel,GPKeys,GTArrows
Global GVPatn,GBTyping,GVMsg,GVTool,JBTempo,JBInst
cleanScreen
if GULevel is empty then
CheckGlobals
end if
set the userLevel to GULevel
set the powerKeys to GPKeys
set the textArrows to GTArrows
set the blindTyping to GBTyping
set the visible of the msg to GVMsg
set the visible of tool window to GVTool
set the visible of pattern window to GVPatn
put empty into JBTempo
put empty into JBInst
about
end closeStack
on sort
answer "You do not want to sort this stack!!!!" with "Right!!!"
